unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, ADODB, ExtCtrls, StdCtrls, ComCtrls, IniFiles;

type
  sbxx_yc = packed record
    // 一次基本信息
  end;

  Tw_zjm = class(TForm)
    ScrollBox1: TScrollBox;
    Panel2: TPanel;
    ProgressBar1: TProgressBar;
    ScrollBox2: TScrollBox;
    Timer1: TTimer;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOConnection1: TADOConnection;
    ADOConnection2: TADOConnection;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Image1: TImage;
    Panel1: TPanel;
    lbl1: TLabel;
    lbl2: TLabel;
    procedure FormShow(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure lbl1Click(Sender: TObject);
    procedure lbl2Click(Sender: TObject);
    procedure Panel1Resize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure lbl2MouseEnter(Sender: TObject);
    procedure lbl2MouseLeave(Sender: TObject);
    procedure lbl1MouseEnter(Sender: TObject);
    procedure lbl1MouseLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    vg_usr_sjk, vg_passwd_sjk, vg_server: string;
    vg_bdzbh: string;
    vg_bdzxh: string;
    vg_path: string;
    vg_name_bdz: string;
    vg_tymc: string;
    vg_sbbh: string;
    vg_sbmc: string;
    mc_data: string;
    vg_bdz_name: string;
    vg_str_dzbh: TStrings;
    procedure ImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure ImageMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure PanelClick(Sender: TObject);
  end;

var
  w_zjm: Tw_zjm;

implementation

uses Unit1, Unit3;

{$R *.dfm}

// ... (Unit10的实现代码)